home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / cnet / cnettoolkit2a.lha / Routines / SUBOP < prev    next >
Text File  |  1994-12-13  |  196b  |  4 lines
  1. SUBOP: procedure;id=x2c(d2x(arg(1),8));getuser 1209388;su=result*488+96
  2.     getuser 2401068;so=import(x2c(d2x(result+su,8)),24)
  3.     do a=0 to 5;if id=substr(so,a*4+1,4) then return 1;end;return 0
  4.